home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_07_(08-1984).d64 / snoopy math (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  13KB  |  450 lines
  1. 1 GOTO910
  2. 2 REM ** ML STOP KEY DISABLE **
  3. 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
  4. 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
  5. 5 [153]"hhhhhhh`1"
  6. 6 [143] ** 4 - POP ML SUBROUTINE **
  7. 10 [143] **GENERAL INPUT ROUTINE **
  8. 35 [143] +++ INPUT SECTION +++
  9. 40 [151]UO,0:UR$[178]"":UI$[178]""
  10. 42 [139]UL[178]0[167]UL[178]80
  11. 45 [151]UC,0
  12. 50 [161]UI$:[139]UI$[178]""[167]50
  13. 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
  14. 60 [139]UI$[178][199](20)[167]105
  15. 62 [139] [195](UR$)[178][177]UL[167]50
  16. 65 [141]120:[143] CHECK FOR VALID CHARACTER
  17. 70 UR$[178]UR$[170]UI$
  18. 75 [153]UI$;
  19. 80 [137]50
  20. 85 [143] +++ CHECK FOR HELP REQUEST +++
  21. 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
  22. 95 [139]UF[178]1[167][141]240
  23. 100 UF[178]0:[153]:[142]
  24. 102 [143] ++ CHECK DELETE ++
  25. 105 [139][195](UR$)[179]1[167]50
  26. 110 UR$[178][200](UR$,[195](UR$)[171]1)
  27. 115 [153]"CMD  CMDCMD";:[137]50
  28. 120 [143] ++ CHECK FOR VALID CHARACTERS ++
  29. 125 [139][195](US$)[178]0[167]150
  30. 127 US$[178]US$[170]UX$
  31. 130 [129]US[178]1[164][195](US$)
  32. 135 [139]UI$[178][202](US$,US,1)[167][142]
  33. 140 [130]
  34. 145 UI$[178]"":[142]
  35. 150 [143] ** STANDARD INPUT **
  36. 152 [139][198](UI$)[178]46[167][142]
  37. 155 [139]UI$[178][199](32)[167][142]
  38. 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170
  39. 165 [142]
  40. 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180
  41. 175 [142]
  42. 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142]
  43. 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142]
  44. 187 [142]
  45. 190 UI$[178]"":[142]
  46. 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++
  47. 197 [141]250
  48. 200 [141]245
  49. 205 [129]UQ[178]UB[164]UB[170]880
  50. 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
  51. 215 UZ[178]1:UV%[178][194](UT)
  52. 216 [137]300
  53. 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  54. 220 UT$[178]UL$:[151]53281,1:[153]"LOAD";:[151]53281,6:[151]UT,UV%:[129]UQ[178]UB[164]UB[170]880
  55. 225 [151]UQ,UQ%(UQ[171]UB):[130]
  56. 230 [151]U1,U1%
  57. 232 [151]U2,U2%
  58. 233 [151]U4,U4%
  59. 234 [151]U3,U3%[171]1
  60. 235 [139]ZZ[178]11[167]ZZ[178]0:TM[178]TM[170](TI[171]TT):[153]"";:[137]1270
  61. 237 [137] 35
  62. 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
  63. 245 [153][200](UD$,24);"                       HELP COMING WAIT  ":[142]
  64. 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  65. 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL
  66. 255 [142]
  67. 300 [143] ** MENU **
  68. 301 :
  69. 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
  70. 303 :
  71. 305 [153]"                MENU"
  72. 310 [153]" --------------------------------------"
  73. 315 [153]"       1.   BEGIN SNOOPY"
  74. 320 [153]"       2.   STUDENT INSTRUCTIONS"
  75. 325 [153]"       3.   TEACHER INSTRUCTIONS"
  76. 335 [153]"       4.   QUIT"
  77. 340 [153]" --------------------------------------"
  78. 345 [153]"       PRESS A NUMBER KEY (1-4) ";
  79. 350 UL[178]1:US$[178]"1234":[141]35:[143] INPUT ROUTINE
  80. 355 [145][197](UR$)[141]1000,400,500,396
  81. 360 [137]300
  82. 395 [143] ** RE-ENABLE STOP KEY AND END **
  83. 396 [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399
  84. 397 [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  85. 398 [153]"CONTLOAD":[128]
  86. 399 [141]875:[142]
  87. 400 [143] ** STUDENT INSTRUCTIONS **
  88. 405 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0
  89. 410 UH[178]1:UT$[178]" (null)NOOPY":UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST.":[141]850
  90. 412 [141]2440
  91. 485 [141]835
  92. 487 UG$[178]""
  93. 490 [139]UZ[178]1[167][158]UP%:[137]217
  94. 499 [142]
  95. 500 [143] ** TEACHER INSTRUCTIONS **
  96. 501 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10
  97. 502 UH[178]1:UT$[178]" (null)NOOPY":UP[178]0:UG$[178]"(null)EACHER RIGHT$NST.":[141]850
  98. 503 [153]"      (null)O THE BEST OF OUR KNOWLEDGE,"
  99. 504 [153]"   THIS PROGRAM IS IN THE PUBLIC"
  100. 505 [153]"   DOMAIN.  RIGHT$F THIS IS NOT THE CASE"
  101. 506 [153]"   PLEASE CONTACT:"
  102. 507 [153]"      LENOMMODORE PEEKUSINESS (null)ACHINES"
  103. 508 [153]"          3370 (null)HARMACY ATNVE.
  104. 509 PRINT"          [193]GINCOURT, [207]NTARIO"
  105. 510 PRINT"          [195]ANADA   [205]1[215] 2[203]4"
  106. 511 PRINT"          (416) 499-4292"
  107. 512 UH=1:UP=1:GOSUB 835:GOSUB 850
  108. 513 PRINT"     [208]ROGRAM [206]AME: [211]NOOPY
  109. 514 [153]"     (null)RITTEN PEEKY  : LENREATIVE LENOMPUTING
  110. 515 PRINT"     [213]PGRADED [194]Y : [193]LBERT [204]EE
  111. 516 [153]"     (null)HIS PROGRAM WILL RUN ON ANY
  112. 517 PRINT"         [194][193][211][201][195][160]2.0 [208][197][212] [195][207][205][208][213][212][197][210]
  113. 518 [153]"         PEEKATN(null)RIGHT$LEN 4.0 (null)VAL(null)CLOSELEN(null)(null)(null)(null)(null)VAL(null)
  114. 519 PRINT"         8032 [195][194][205] [195][207][205][208][213][212][197][210]
  115. 520 [153]"         LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null)
  116. 521 REM------------------------------
  117. 522 REM"     [213]PGRADED FOR [195]64 BY:
  118. 523 [143]"         (null)YNDA PEEKONANNO
  119. 524 REM------------------------------
  120. 525 GOSUB835:UH=1:GOSUB850
  121. 526 PRINT"  [212]HIS PROGRAM IS FOR GRADE 7 TO"
  122. 527 PRINT" GRADE 10 STUDENTS.  [212]HIS WILL HELP THE"
  123. 528 PRINT" STUDENTS TO BETTER UNDERSTAND LINE"
  124. 529 PRINT" GRAPHS AND THE ADDITION OF INTEGERS."
  125. 530 GOSUB835:UH=1:GOSUB850
  126. 535 PRINT"  [212]HERE ARE FIVE LEVELS OF DIFFICULTY."
  127. 540 PRINT" [212]HE LEVEL OF DIFFICULTY IS DETERMINED"
  128. 545 PRINT" BY THE LENGTH OF TIME GIVEN TO A"
  129. 550 PRINT" STUDENT TO ANSWER THE QUESTION."
  130. 555 PRINT"     1. [195][193][196][197][212]        -  [214][197][210][217] [197][193][211][217]"
  131. 560 PRINT"     2. [202][210]. [208][201][204][207][212]    -  [197][193][211][217]"
  132. 565 PRINT"     3. [208][201][204][207][212]        -  [205][207][196][197][210][193][212][197]"
  133. 567 PRINT"     4. [211][210]. [208][201][204][207][212]    -  [200][193][210][196]"
  134. 570 PRINT"     5. [193][195][197]          -  [214][197][210][217] [200][193][210][196]"
  135. 580 GOSUB835
  136. 587 UG$=""
  137. 590 IFUZ=1THENSYSUP%:GOTO217
  138. 599 RETURN
  139. 600 REM ** PROGRAM MODIFICATION INST **
  140. 699 RETURN
  141. 700 REM ** TO USE 8032 LOAD CBM4032 **
  142. 710 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032  
  143. 720 [153]"      LOAD THE 'CBM 4032' PROGRAM"
  144. 730 [158]UU[170]71
  145. 740 [128]
  146. 797 [143] ** TO USE 8032 LOAD CBM4032 **
  147. 798 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032  LOAD CBM 4032 PROGRAM"
  148. 799 [158]1093:[128]
  149. 800 [143] ** T I T L E   P A G E **
  150. 802 [153]"LOAD";:[151]UT,UU%:[139][194](50003)[178]0[167][151]53280,14:[151]53281,6
  151. 803 [153] [199](142);
  152. 804 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130]
  153. 806 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130]
  154. 808 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130]
  155. 810 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130]
  156. 812 [153]"STEP  WAIT
  157. 814 PRINT" [146]   [146][169]
  158. 816 [153]" WAIT  TAB((null)
  159. 818 PRINT"[223]  [146]
  160. 820 [153]"C O M M O D O R E
  161. 822 PRINT"EDUCATIONAL
  162. 824 [153]"SOFTWARE
  163. 826 REM ** COMMODORE LOGO **
  164. 827 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]":I=0
  165. 828 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN828
  166. 830 T1$="":T2$="":T3$="":T4$="":I=0
  167. 832 GOTO300
  168. 835 REM ** SPACE BAR PRESS **
  169. 840 POKEUO,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
  170. 842 PRINT"                                  ";
  171. 844 GETUI$:IFUI$<>" "THEN844
  172. 846 RETURN
  173. 850 REM ** PAGE DESIGN ROUTINE **
  174. 852 UP=UP+1
  175. 855 PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  176. 860 PRINT" --------------------------------------"
  177. 864 IFUH<>0THEN870
  178. 865 PRINTLEFT$(UD$,24)" HELP - PRESS   H <RETURN>"
  179. 870 UH=0:PRINT"":RETURN
  180. 875 REM ** PLEASE WAIT REMARK **
  181. 880 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     "
  182. 885 RETURN
  183. 900 REM ** SET UP VARIABLES **
  184. 901 UX$="H":DIMUQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UU=1024
  185. 902 UT=59468:UU%=12:UL%=14:UP%=1146:UM=32768:UO=158:POKE 50003,0
  186. 903 IFPEEK(50003)=0THENUB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048
  187. 904 IFPEEK(50003)=0THENUT=53272:UU%=21:UL%=23:UP%=2139:UM=1024:UO=198
  188. 905 UD$=""
  189. 906 UP$="                                       "
  190. 907 UT$=" SNOOPY
  191. 908 [142]
  192. 910 [143] ** SET VARIABLES **
  193. 915 [141]900
  194. 916 :
  195. 917 :
  196. 920 [143] ** CHECK FOR 8032 **
  197. 925 [153]"LOAD":[153]"CLOSE":[143] SHIFTED SPACE
  198. 930 [139][194](UB[170]40)[179][177]96[167][141]700
  199. 931 [143] ** MEMORY CHECK **
  200. 932 [139] [184](0)[177]2000[167]937
  201. 933 [153]"LOADTHIS MACHINE DOES NOT HAVE ENOUGH"
  202. 934 [153]"MEMORY TO RUN THIS PROGRAM !"
  203. 935 [158]UU[170]71
  204. 936 [128]
  205. 937 [153]"LOAD":[139][194](50003)[178]0[167]962
  206. 940 [143] ** BASIC 2.0  OR  4.0  OR  C-64 SETUP **
  207. 941 [151]1075,133:[151]1076,144:[151]1077,234:[151]1079,4:[151]1080,133:[151]1081,145
  208. 942 [151]1091,155:[151]1098,133:[151]1099,144:[151]1100,234:[151]1103,133
  209. 943 [151]1104,145:[151]1105,234:[151]1082,234
  210. 945 [139][194](50003)[179][177]160[167]955
  211. 950 [151]1093,88:[151]1094,228:[151]1097,85:[151]1102,228:[137]965
  212. 955 [139][194](50003)[179][177]1[167]990
  213. 960 [151]1093,49:[151]1094,230:[151]1097,46:[151]1102,230:[137]965
  214. 962 [151]2099,141:[151]2100,20:[151]2101,3:[151]2103,8:[151]2104,141:[151]2105,21
  215. 963 [151]2106,3:[151]2115,145:[151]2117,52:[151]2118,234:[151]2121,49:[151]2122,141
  216. 964 [151]2123,20:[151]2124,3:[151]2126,234:[151]2127,141:[151]2128,21:[151]2129,3
  217. 965 [158]UU[170]48:[143] DISABLE STOP KEY
  218. 970 [141]800:[143] TITLE
  219. 980 [137]300:[143] MENU
  220. 990 [153]"LOADTHE PGM WILL NOT WORK ON THIS MACHINE!":[128]
  221. 1000 [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0:[143] ** PROGRAM STARTS HERE **
  222. 1001 [153]"LOAD";:[140]:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  223. 1010 [140]
  224. 1020 [143] *** PET BASIC:  SNOOPY
  225. 1030 [143] ***  INTEGER NUMBERS PROGRAM
  226. 1040 [143] **"
  227. 1050 DEL$=""
  228. 1060 PO$=""
  229. 1070 I0=1
  230. 1080 L0=0:W0=0
  231. 1085 GOSUB 2640:PRINT"[147]":GOSUB 1090:GOTO 1130
  232. 1090 PRINT"    [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]"
  233. 1110 PRINT"   -5 -4 -3 -2 -1  0  1  2  3  4  5"
  234. 1120 RETURN
  235. 1130 PRINT"[145]";:GOSUB2270
  236. 1140 REM ** MAIN SECTION
  237. 1150 IFL0>4THEN2030
  238. 1160 IFW0>4THEN2070
  239. 1170 S=INT(RND(1)*11-5)
  240. 1180 R=INT(RND(1)*11-5)
  241. 1190 IFR=SORABS(R-S)=10THEN1180
  242. 1200 PRINT"";DEL$
  243. 1210 POKEUM+99+S*3,(S>R)*-60+(S<R)*-62
  244. 1220 POKEUM+99+R*3,87
  245. 1230 GETA$:IFA$<>""THEN1230
  246. 1240 TM=TI:H=1:PRINTPO$;DEL$;:PRINT" SHOT:  ";
  247. 1250 IFSK=960THEN1270
  248. 1260 IFTI-TM>=SKTHENPRINTDEL$;"TIME'S UP![145]":FORI=1TO2000:NEXT:GOTO1440
  249. 1270 GETA$:GOSUB3000:IFA$=""OR(A$<>"-"ANDA$<"1"ORA$>"9")THEN1250
  250. 1280 PRINTA$;:IFA$="-"THENH=-H:GOTO1250
  251. 1290 H=H*VAL(A$)
  252. 1300 IFABS(S+H)<=5THEN1330
  253. 1310 PRINTPO$;DEL$;H;"IS OUT OF RANGE.";
  254. 1320 FORI=1TO2000:NEXT:PRINTDEL$:GOTO1230
  255. 1330 REM ** MOVE SNOOPY
  256. 1340 FORJ1=1TO3:FORJ=627TO639:POKEUM+J,46:POKEUM+J-1,32:NEXT:POKEUM+639,32:NEXT
  257. 1350 FORJ=STOS+H-SGN(H)STEPSGN(H)
  258. 1360 S=S+SGN(H)
  259. 1370 IFJ=RGOTO1400
  260. 1380 POKEUM+99+J*3,32
  261. 1390 IFJ=R-SGN(H)THEN1410
  262. 1400 POKEUM+99+(J+SGN(H))*3,(S>R)*-60+(S<R)*-62+(S=R)*-87
  263. 1410 FORI=1TO200:NEXT
  264. 1420 NEXT
  265. 1430 IFS=RTHEN1760
  266. 1440 REM ** MISS
  267. 1450 L0=L0+1
  268. 1460 PRINT"":FORJ=1TO22:PRINT:NEXT:PRINTTAB(18)"** BLAM!! **":FORI=1TO200:NEXT
  269. 1470 RESTORE
  270. 1480 FORJ=1TOINT(RND(1)*5)+1:READM1:NEXT
  271. 1490 M2=INT(RND(1)*8):IFPEEK(UM+M1+M2)=209THEN1490
  272. 1500 FORJ=1TO3:POKEUM+M1+M2,81:GOSUB15000: FORI=1TO50:NEXT
  273. 1510 POKEUM+M1+M2,209
  274. 1520 FORI=1TO50:NEXTI,J
  275. 1530 FORI=1TO750:NEXT
  276. 1540 PRINTPO$;
  277. 1550 ONINT(RND(1)*5)+1GOSUB1600,1630,1660,1700,1730
  278. 1560 PRINT"";:FORJ=1TO24:PRINT:NEXT:PRINTDEL$
  279. 1570 FORI=1TO2000:NEXT
  280. 1580 PRINTPO$;:FORJ=1TO8:PRINT"                 ":NEXT
  281. 1590 GOTO1140
  282. 1600 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][201]":PRINT"[221] RATS! GOT [221]":PRINT"[221] ME AGAIN! [221]":PRINT"[202][192][192][192][192][192][192][201][213][192][192][192][203]"
  283. 1610 PRINT"       [202][203]":PRINTTAB(9);"[215]  [215] [215]"
  284. 1620 RETURN
  285. 1630 PRINT"[213][192][192][192][192][192][192][192][192][201]":PRINT"[221]        [221]":PRINT"[221] @%$&*! [221]":PRINT"[221]        [221]":PRINT"[202][192][192][192][192][192][201][213][192][203]"
  286. 1640 PRINT"      [202][203]":PRINTTAB(10);"[215][215]"
  287. 1650 RETURN
  288. 1660 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][201]":PRINT"[221]            [221]":PRINT"[221] CURSE YOU, [221]":PRINT"[221] RED BARON! [221]"
  289. 1670 PRINT"[221]            [221]":PRINT"[202][192][192][192][192][192][192][192][192][201][213][192][192][203]":PRINT"         [202][203]"
  290. 1680 PRINTTAB(12);"[215][215]"
  291. 1690 RETURN
  292. 1700 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":PRINT"[221] HE HIT ME!?! [221]":PRINT"[202][192][192][192][192][192][192][192][192][201][213][192][192][192][192][203]"
  293. 1710 PRINT"         [202][203]":PRINTTAB(12);"[215][215]"
  294. 1720 RETURN
  295. 1730 PRINT"[213][192][192][192][192][192][201]":PRINT"[221]RATS![221]":PRINT"[202][192][192][192][201][213][203]":PRINT"    [202][203]"
  296. 1740 PRINTTAB(7);"[215][215][215]"
  297. 1750 RETURN
  298. 1760 REM ** HIT
  299. 1770 W0=W0+1
  300. 1780 FORJ=1TO3:GOSUB10000
  301. 1790 POKEUM+99+R*3,87
  302. 1800 FORI=1TO100:NEXT
  303. 1810 POKEUM+99+R*3,81
  304. 1820 FORI=1TO100:NEXT
  305. 1830 POKEUM+99+R*3,86
  306. 1840 FORI=1TO100:NEXT
  307. 1850 NEXT
  308. 1860 PRINTPO$;DEL$
  309. 1870 ONINT(RND(1)*3)+1GOSUB1920,1960,1990
  310. 1880 PRINTPO$;DEL$
  311. 1890 FORI=1TO2500:NEXT
  312. 1900 PRINTPO$;:FORJ=1TO8:PRINT"                   ":NEXT
  313. 1910 GOTO1140
  314. 1920 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":PRINT"[221]  HEH-HEH!    [221]":PRINT"[221] I'VE HIT HIM [221]"
  315. 1930 IFW0>1THENPRINT"[221]"W0"TIMES NOW!![221]":PRINT"[202][192][192][192][192][192][192][192][192][192][201][213][192][192][192][203]":PRINT"          [202][203]"
  316. 1935 IFW0<2THENPRINT"[221] ONCE NOW!!   [221]":PRINT"[202][192][192][192][192][192][192][192][192][192][201][213][192][192][192][203]":PRINT"
  317. 1940 [153][163]12);"(null)(null)"
  318. 1950 [142]
  319. 1960 [139]W0[177]1[167][153]"(null)TANTANTANTANTANTANTANTANTANRIGHT$":[153]"(null) THAT'S  (null)":[153]"(null)"W0"TIMES!(null)":[153]"MID$TANTANTANTANTANRIGHT$(null)TANTAN(null)"
  320. 1965 [139]W0[179]2[167][153]"(null)TANTANTANTANTANTANTANTANTANRIGHT$":[153]"(null) THAT'S  (null)":[153]"(null) ONCE!!  (null)":[153]"MID$TANTANTANTANTANRIGHT$(null)TANTAN(null)"
  321. 1970 [153]"      MID$(null)":[153][163]9);"(null)  (null)  (null)"                
  322. 1980 [142]
  323. 1990 [153]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$":[153]"(null) HA! I'VE SHOT   (null)"
  324. 1992 [139]W0[177]1[167][153]"(null) YOU"W0"TIMES,    (null)"
  325. 1995 [139]W0[179]2[167][153]"(null) YOU ONCE,       (null)"
  326. 2000 [153]"(null) RED BARON!!     (null)":[153]"MID$TANTANTANTANTANTANTANTANTANTANTANRIGHT$(null)TANTANTANTAN(null)"
  327. 2010 [153]"            MID$(null)":[153][163]14);"(null) (null)"
  328. 2020 [142]
  329. 2030 [143] ** LOSE
  330. 2040 [153]PO$;"ON THE RED BARON SHOT YOU DOWN!"
  331. 2050 [139]W0[179][177]1[167][153]" YOU HIT HIM";W0;"TIMES."
  332. 2055 [139]W0[178]1[167][153]" YOU HIT HIM ONCE."
  333. 2060 [137]2390
  334. 2070 [143] ** WIN
  335. 2080 [129]J[178]1[164]5:[153][200](PO$,7);:[153][163]28)"** BOOM! **WAIT":[129]I[178]1[164]50:[130]
  336. 2090 [153][200](PO$,7);:[153][163]28)"** BOOM! **":[129]I[178]1[164]50:[130]I,J
  337. 2100 [153][200](PO$,8);:[129]J[178]1[164]15
  338. 2110 [153][163]35)"   ":[153][163]35)"(null)TANRIGHT$":[153][163]36)"V":[153][163]36)"(null)ONONON"
  339. 2120 [129]I[178]1[164]50:[130]I,J
  340. 2130 [153][163]35)"   ":[153][163]36)" ":[153][163]36)" ";:[141]20000
  341. 2140 [153][200](PO$,8);DEL$
  342. 2150 A$[178]"CADET  CMDCMDJR. PILOTPILOT  CMDCMDSR. PILOTACE"
  343. 2160 [153]PO$;"ON YOU SHOT DOWN THE RED BARON!"
  344. 2170 [139]SP[178]5[175]L0[178]0[167][153]" YOU HAVE BEEN HONORABLY RETIRED.":[137]2190
  345. 2180 [139]L0[178]0[167][153]" YOU ARE PROMOTED TO "[202](A$,(SP[170]1)[172]9[171]8,9)"."
  346. 2190 [153]" GREAT FLYING!":[137]2390
  347. 2200 [153]" HE HIT YOU"L0"TIMES."
  348. 2210 [139]L0[178]1[167][145][181]([187](1)[172]3)[170]1[141]2230,2240,2250       
  349. 2220 [137]2390
  350. 2230 [153]" NOT BAD.":[142]
  351. 2240 [153]" PRETTY GOOD.":[142]
  352. 2250 [153]" FAIRLY DECENT.":[142]
  353. 2260 [131]700,739,780,820,860
  354. 2270 [153]"";
  355. 2280 [153][163]17)"     (null)TANRIGHT$"
  356. 2290 [153][163]17)"CLOSECLOSECLOSE  STEPWAIT (null)TAN*"
  357. 2300 [153][163]17)"CLOSE (null)ASCTAN WAITRIGHT$=TAN(null)"
  358. 2310 [153][163]17)"CLOSE ASCSTR$STR$=(null)-(null) "
  359. 2320 [153][163]17)"CLOSE  CLOSEASC<CLOSEMID$TANRIGHT$"
  360. 2330 [153][163]17)"CLOSE STEPCLOSECLOSECLOSECLOSECLOSECLOSECLOSE (null)WAIT"
  361. 2340 [153][163]17)"CLOSESTEPTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)WAIT"
  362. 2350 [153][163]17)"CLOSE  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(WAIT"
  363. 2360 [153][163]17)"CLOSE  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(WAIT"
  364. 2370 [153][163]17)"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(WAIT"
  365. 2380 [142]
  366. 2390 [153]" PLAY AGAIN? ";
  367. 2400 UL[178]1:US$[178]"YN":[141]35:A$[178]UR$:UR$[178]""
  368. 2410 [139]A$[178]"Y"[167][153]"LOAD":[137]1060
  369. 2420 [137] 300
  370. 2440 [143] ** INSTRUCTIONS
  371. 2450 I0[178]0
  372. 2460 [151]UT,UL%:[137]2500
  373. 2470 [153]"";[163]10);"O";[163]22);"<"
  374. 2480 [153]:[153]:[153][163]10);"^";[163]22);"^"
  375. 2490 [153][163]6);"(null)ED PEEKARON";[163]20);"(null)NOOPY":[142]
  376. 2500 [153]"    (null)OU ARE A (null)ORLD (null)AR RIGHT$ FLYING"
  377. 2510 [153]"  ACE, OUT TO GET THE (null)ED PEEKARON."
  378. 2520 [153]"    (null)O HIT HIM, ENTER THE POSITIVE"
  379. 2530 [153]"  OR NEGATIVE DISTANCE BETWEEN YOU"
  380. 2540 [153]"  AND THE (null)ED PEEKARON.  RIGHT$F YOU ENTER IT"
  381. 2550 [153]"  CORRECTLY, YOUR SHOT WILL HIT HIM."
  382. 2580 [153]"  RIGHT$F YOU HIT THE PEEKARON 5 TIMES, HE"
  383. 2590 [153]"  WILL CRASH."
  384. 2595 [141]835:UH[178]1:[141]850:[141]1090:[141]2470
  385. 2600 [153]"  (null)OU HAVE A LIMITED TIME, SO HURRY."
  386. 2610 [153]" RIGHT$N THE ABOVE EXAMPLE, YOU WOULD TYPE"
  387. 2611 [153]" -4 TO HIT HIM."
  388. 2612 [153]"  STR$O NOT PRESS RETURN AFTER ENTERING"
  389. 2614 [153]" THE ANSWER OR WHEN YOU'RE ASKING"
  390. 2615 [153]" FOR HELP.  (null)OU MAY PRESS H AT ANY"
  391. 2617 [153]" TIME FOR HELP.
  392. 2620 PRINT"               [199][207][207][196][160][204][213][195][203] ![146]":RETURN
  393. 2640 POKEUT,UL%
  394. 2650 PRINT"[147]         [197]NTER THE SKILL LEVEL"
  395. 2652 PRINT"              1[146]. [195]ADET"
  396. 2654 PRINT"              2[146]. [202]R. PILOT"
  397. 2656 PRINT"              3[146]. [208]ILOT"
  398. 2658 PRINT"              4[146]. [211]R. PILOT"
  399. 2660 PRINT"              5[146]. [193]CE"
  400. 2665 PRINT"";
  401. 2670 UL=1:US$="12345H":GOSUB35:A$=UR$:UR$=""
  402. 2680 SP=VAL(A$):SK=2^(5-SP)*60-(SP=5)*30
  403. 2690 PRINT"[147]":POKEUT,UU%
  404. 2700 X$=PO$:REM (KLUGE!
  405. 2710 RETURN
  406. 3000 IFA$="H"THENUR$=A$:ZZ=11:TT=TI:PRINT"";:GOTO85
  407. 3010 RETURN
  408. 10000 REM LASER FIRE ADAPTED FROM CURSOR
  409. 10010 REM BY J. DAVID
  410. 10020 REM WHCI
  411. 10030 POKE59467,16
  412. 10040 POKE59464,0
  413. 10050 POKE59466,15:FORL=1TO1
  414. 10060 FORV=0TO100STEP5
  415. 10070 POKE59464,V:FORX=1TO2:NEXT:NEXT
  416. 10080 POKE59464,V:X=TAN(X) :NEXT
  417. 10090 POKE59467,0:POKE59466,0:POKE59464,0
  418. 10100 RETURN
  419. 15000 REM DEATH RAY ADAPTED FROM
  420. 15010 REM 'CURSOR'
  421. 15020 REM BY J. DAVID
  422. 15030 REM WHCI
  423. 15040 P=59464
  424. 15050 POKE59467,16
  425. 15060 POKE59464,0
  426. 15070 POKE59466,15
  427. 15080 FORL=1TO40:POKEP,150:POKEP,200:POKEP,255:NEXT
  428. 15090 POKE59467,0:POKE59466,0:POKE59464,0
  429. 15100 RETURN
  430. 20000 REM CHARGE! ADAPTED FROM
  431. 20010 REM 'CURSOR'
  432. 20020 REM BY J. DAVID
  433. 20030 REM WHCI
  434. 20040 P=59464
  435. 20050 POKE59467,16
  436. 20060 POKE59464,0
  437. 20070 GOSUB20100
  438. 20080 POKE59467,0:POKE59466,0:POKE59464,0
  439. 20090 RETURN
  440. 20100 REM
  441. 20110 POKE59466,15:T=3
  442. 20120 POKEP,255:FORL=1TO100:NEXT:GOSUB20190
  443. 20130 POKEP,191:FORL=1TO100:NEXT:GOSUB20190
  444. 20140 POKEP,152:FORL=1TO100:NEXT:GOSUB20190
  445. 20150 POKEP,128:FORL=1TO200:NEXT:GOSUB20190
  446. 20160 POKEP,152:FORL=1TO100:NEXT:T=0:GOSUB20190
  447. 20170 POKEP,128:FORL=1TO400:NEXT
  448. 20180 RETURN
  449. 20190 POKE59464,0:FORL=1TOT:NEXT:RETURN
  450.